home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #230 (1993)(Rhein-Sieg-Soft).zip / Franz PD Disk #230 (1993)(Rhein-Sieg-Soft).adf / Funktionszeichner (.txt) < prev    next >
AmigaBASIC Source Code  |  1993-04-08  |  16KB  |  372 lines
  1. REM Funktionszeichner
  2. SCREEN 1,640,400,3,4
  3. WINDOW 1,"Funktionszeichner   1993 von S.Schilling",(0,0)-(617,385),15,1
  4. anf:
  5. PALETTE 1,0.73,0.73,0.73
  6. PALETTE 3,1,0.13,0.93
  7. PALETTE 5,0.33,0.87,0
  8. PALETTE 4,1,1,0.13
  9. COLOR 1,2
  10. CLS
  11. LOCATE 2,20:PRINT "F U N K T I O N S - Z E I C H N E R"
  12. LOCATE 3,20:PRINT "-----------------------------------"
  13. LOCATE 4,20:PRINT "      1993 von S.Schilling"
  14. LOCATE 6,10:PRINT "Mathematisches Programm zur Darstellung nahezu jeder beliebigen"
  15. LOCATE 7,10:PRINT "2-dimensionalen Funktion (keine Einschränkung der Potenzen) mit"
  16. LOCATE 8,10:PRINT "bis zu 6 Funktionssummanden der Form :"
  17. LOCATE 10,15:PRINT "                       z   p"
  18. LOCATE 11,15:PRINT "                (-,+) --- x "
  19. LOCATE 12,15:PRINT "                       n    "
  20. LOCATE 14,10:PRINT "Ein mögliches Beispiel einer Funktion mit 4 Summanden wäre also:"
  21. LOCATE 17,10:PRINT "    1     3      3     2      9     1      5     0"
  22. LOCATE 18,5:PRINT "f(x) =  --- * x   -  --- * x   -  --- * x   +  --- * x "
  23. LOCATE 19,10:PRINT "    4            4            4            1      "
  24. LOCATE 21,10:PRINT " |--------|  |---------|  |---------|  |---------|"
  25. LOCATE 22,10:PRINT "  1.Summand   2.Summand    3.Summand    4.Summand "
  26. LOCATE 24,10:PRINT "z=1,n=4,p=3                 x^1 = x      x^0 = 1  "
  27. LOCATE 27,10:PRINT "Der Amiga benutzt das Zeichen ` ^ ` ,um mit einer Potenz in einer"
  28. LOCATE 28,10:PRINT "Zeile rechnen zu können."
  29. LOCATE 30,10:PRINT "      3      
  30. LOCATE 31,10:PRINT "     x      entspricht also  x^3"
  31. LOCATE 33,5:PRINT "Für den Amiga sieht die Funktion so aus :f(x)=1/4*x^3 -3/4*x^2 -9/4*x +5"
  32. LOCATE 35,8:PRINT "Damit die Funktionen schön rund dargestellt werden können,mußte ich"
  33. LOCATE 36,8:PRINT "den hochauflösenden Graphikmodus einstellen.Der Text flimmert deshalb"
  34. LOCATE 37,8:PRINT "und ist ein bischen schwerer zu lesen.Dafür sind die Funktionen "
  35. LOCATE 38,8:PRINT "(auf die es ja ankommt) wesentlich besser."
  36. LOCATE 45,8:PRINT ">>Taste<<"
  37. WHILE INKEY$="":WEND
  38. CLS
  39. COLOR 3
  40. LOCATE 5,10:PRINT "Dieses Programm ist Shareware.";:COLOR 1:PRINT "Wer es benutzen möchte sollte einen"
  41. LOCATE 6,10:PRINT "Shareware-Betrag in Höhe von ";:COLOR 3:PRINT "5 DM ";:COLOR 1:PRINT "an mich entrichten."
  42. LOCATE 8,15:PRINT "Meine Adresse :"
  43. COLOR 5
  44. LOCATE 11,25:PRINT "Stephan Schilling"
  45. LOCATE 12,25:PRINT "Gartenstraße 3a"
  46. LOCATE 13,25:PRINT "7500 Karlsruhe 1"
  47. LOCATE 14,25:PRINT "Deutschland"
  48. COLOR 1
  49. LOCATE 17,10:PRINT "Ich habe noch eine weitere Version dieses Programmes in Planung."
  50. LOCATE 18,10:PRINT "Wer den Shareware-Betrag bezahlt wird registriert und erhält"
  51. LOCATE 19,10:PRINT "(wenn ein frankierter und adressieter Briefumschlag beiliegen)"
  52. LOCATE 20,10:PRINT "von mir Nachricht bei deren Vollendung.Diese weitere Version "
  53. LOCATE 21,10:PRINT "ist dann für alle registrierten User kostenlos.Ihr bekommt sie bei "
  54. LOCATE 22,10:PRINT "Sendung einer Leerdiskette + frankiertem,adressiertem Umschlag "
  55. LOCATE 23,10:PRINT "zugeschickt."
  56. LOCATE 25,5:PRINT "       Geplant ist :"
  57. LOCATE 27,1:PRINT " - Darstellung von Exponential-Funktionen"
  58. LOCATE 28,1:PRINT " - Wurzelfunktionen ,die im Moment leider nur beschränkt möglich sind :"
  59. LOCATE 29,5:PRINT "   Wurzel aus x : x ^ .5   (x hoch 1/2)"
  60. LOCATE 30,5:PRINT " 3.Wurzel aus x : x ^ 0.33 (x hoch 1/3) ..."
  61. LOCATE 31,1:PRINT " - Berechnung von Tangentengleichungen und deren Darstellung "
  62. LOCATE 32,1:PRINT " - Darstellung mehrerer Funktionen (im Moment nur mit Abl.fkt. möglich)"
  63. LOCATE 33,1:PRINT " - Bessere Maskendarstellung + einfacheres Eingeben von Funktionen"
  64. LOCATE 34,1:PRINT " - eventuell Möglichkeit zur Speicherung im IFF-Format"
  65. LOCATE 35,1:PRINT " - Speicherfunktion zum Speichern besonderer Funktionen"
  66. LOCATE 37,3:PRINT "Ihr seht,ich habe ne ganze Menge vor,um mein Programm zu verbessern."
  67. LOCATE 38,3:PRINT "Allerdings meine ich,daß Ihr im Moment auch schon ein gutes und hilfreiches "
  68. LOCATE 39,3:PRINT "Programm vor Euch habt."
  69. LOCATE 41,5:PRINT "Also gutes Gelingen und viel Spaß mit meinem Programm"
  70. LOCATE 42,5:PRINT "                                             S.Schilling" 
  71. LOCATE 45,2:PRINT "Gebt doch mal das Beispiel von oben an,mit einem Koordinatenraster von 25,"
  72. LOCATE 46,2:PRINT "einer Zeichendichte von 0.01,dem Definitionsbereich von -3.5 bis 5.5 "
  73. LOCATE 47,2:PRINT "und 2 Ableitungsfunktionen.               >>Taste<<"
  74. WHILE INKEY$="":WEND
  75. CLS
  76. inp:
  77. LOCATE 5,5:PRINT "Wenn ihr bei Anz. der Summanden -1 eingebt,erscheint eine"
  78. LOCATE 6,5:PRINT "Tabelle mit Beispielfunktionen."
  79. LOCATE 10,10:INPUT "Wieviele Summanden hat f(x)  :";anz
  80. IF anz=-1 THEN beispiele
  81. IF anz=0 OR anz<-1 OR anz>6 THEN inp
  82. IF anz>-1 AND anz<0 THEN inp
  83. anz=INT(anz)
  84. LOCATE 11,5:PRINT "1.Summand"
  85. LOCATE 12,10:INPUT "Potenz von x                :";p1
  86. LOCATE 13,10:INPUT "Faktor vor x  Zähler,Nenner :";z1,n1
  87. LOCATE 14,10:INPUT "(p)os,(n)eg                 :";w1$
  88. IF anz<2 THEN weiter
  89. LOCATE 15,5:PRINT "2.Summand"
  90. LOCATE 16,10:INPUT "Potenz von x                :";p2
  91. LOCATE 17,10:INPUT "Faktor vor x      Z,N       :";z2,n2
  92. LOCATE 18,10:INPUT "(p)os,(n)eg                 :";w2$
  93. IF anz<3 THEN weiter
  94. LOCATE 19,5:PRINT "3.Summand"
  95. LOCATE 20,10:INPUT "Potenz von x                :";p3
  96. LOCATE 21,10:INPUT "Faktor vor x      Z,N       :";z3,n3
  97. LOCATE 22,10:INPUT "(p)os,(n)eg                 :";w3$
  98. IF anz<4 THEN weiter
  99. LOCATE 23,5:PRINT "4.Summand"
  100. LOCATE 24,10:INPUT "Potenz von x                :";p4
  101. LOCATE 25,10:INPUT "Faktor vor x      Z,N       :";z4,n4
  102. LOCATE 26,10:INPUT "(p)os,(n)eg                 :";w4$
  103. IF anz<5 THEN weiter
  104. LOCATE 27,5:PRINT "5.Summand"
  105. LOCATE 28,10:INPUT "Potenz von x                :";p5
  106. LOCATE 29,10:INPUT "Faktor vor x      Z,N       :";z5,n5
  107. LOCATE 30,10:INPUT "(p)os,(n)eg                 :";w5$
  108. IF anz<6 THEN weiter
  109. LOCATE 31,5:PRINT "6.Summand"
  110. LOCATE 32,10:INPUT "Potenz von x                :";p6
  111. LOCATE 33,10:INPUT "Faktor vor x      Z,N       :";z6,n6
  112. LOCATE 34,10:INPUT "(p)os,(n)eg                 :";w6$
  113. weiter:
  114. LOCATE 35,10:INPUT "Definitionsbereich (x1;x2)  :";i1,i2
  115. LOCATE 36,10:INPUT "Zeichendichte               :";l
  116. LOCATE 37,10:INPUT "1.Ableitungsfunktion  (j/n) :";ab1$
  117. IF ab1$="n" THEN abfr
  118. LOCATE 38,10:INPUT "2.Ableitungsfunktion  (j/n) :";ab2$
  119. IF ab2$="n" THEN abfr
  120. LOCATE 39,10:INPUT "3.Ableitungsfunktion  (j/n) :";ab3$
  121. IF ab3$="n" THEN abfr
  122. LOCATE 40,10:INPUT "4.Ableitungsfunktion  (j/n) :";ab4$
  123. abfr:
  124. LOCATE 41,10:INPUT "Größe des Koordinatenrasters:";co
  125. IF co<10 THEN LOCATE 41,40:PRINT "        ":GOTO abfr
  126. LOCATE 42,10:INPUT "Hintergrundraster (j/n)     :";ra$
  127. LOCATE 43,10:INPUT "Maximaler |y|               :";ymax
  128. PALETTE 1,1,1,0.13
  129. PALETTE 2,0,0,0
  130. PALETTE 3,1,0.13,0.93
  131. PALETTE 4,0.93,0.2,0
  132. PALETTE 5,0.8,0.6,0.53
  133. PALETTE 6,0.73,0.73,0.73
  134. PALETTE 7,0.33,0.87,0
  135. coor:
  136. CLS
  137. LINE (10,210)-(610,210),6
  138. LINE (605,205)-(610,210),6
  139. LINE (605,215)-(610,210),6
  140. LINE (310,10)-(310,390),6
  141. LINE (305,15)-(310,10),6
  142. LINE (315,15)-(310,10),6
  143. COLOR 6
  144. LOCATE 2,38:PRINT "y"
  145. LOCATE 29,76:PRINT "x" 
  146. FOR i=310 TO 630 STEP co
  147. PSET (i,211),6
  148. NEXT i
  149. FOR i=310 TO 10 STEP -co
  150. PSET (i,211),6
  151. NEXT i
  152. FOR i=210 TO 390 STEP co
  153. PSET (309,i),6
  154. NEXT i
  155. FOR i=210 TO 10 STEP -co
  156. PSET (309,i),6
  157. NEXT i
  158. IF ra$="n" THEN pro
  159. raster:
  160. y=210
  161. ra1:
  162. y=y-co
  163. IF y<210-20*co THEN ra2
  164. FOR x=310 TO 630 STEP co
  165. PSET (x,y),6
  166. NEXT x
  167. GOTO ra1
  168. ra2:
  169. y=210
  170. rax2:
  171. y=y+co
  172. IF y>210+20*co THEN ra3
  173. FOR x=310 TO 630 STEP co
  174. PSET (x,y),6
  175. NEXT x
  176. GOTO rax2
  177. ra3:
  178. y=210
  179. rax3:
  180. y=y-co
  181. IF y<210-20*co THEN ra4
  182. FOR x=310 TO 10 STEP -co
  183. PSET (x,y),6
  184. NEXT x
  185. GOTO rax3
  186. ra4:
  187. y=210
  188. rax4:
  189. y=y+co
  190. IF y>210+20*co THEN pro
  191. FOR x=310 TO 10 STEP -co
  192. PSET (x,y),6
  193. NEXT x
  194. GOTO rax4
  195. pro:
  196. COLOR 1:LOCATE 1,1:PRINT "f(x)"
  197. COLOR 3:LOCATE 2,1:PRINT "f`(x)"
  198. COLOR 4:LOCATE 3,1:PRINT "f``(x)"
  199. COLOR 5:LOCATE 4,1:PRINT "f```(x)"
  200. COLOR 7:LOCATE 5,1:PRINT "f````(x)"
  201. COLOR 6:LOCATE 6,1:PRINT "E=1"
  202. IF w1$="p" THEN c1=1
  203. IF w1$="n" THEN c1=-1
  204. IF w2$="p" THEN c2=1
  205. IF w2$="n" THEN c2=-1
  206. IF w3$="p" THEN c3=1
  207. IF w3$="n" THEN c3=-1
  208. IF w4$="p" THEN c4=1
  209. IF w4$="n" THEN c4=-1
  210. IF w5$="p" THEN c5=1
  211. IF w5$="n" THEN c5=-1
  212. IF w6$="p" THEN c6=1
  213. IF w6$="n" THEN c6=-1
  214. x=i1
  215. schleife:
  216. x=x+l:IF x>i2 THEN abl
  217. t1=(z1/n1)*x^p1*c1:IF anz<2 THEN r1
  218. t2=(z2/n2)*x^p2*c2:IF anz<3 THEN r1
  219. t3=(z3/n3)*x^p3*c3:IF anz<4 THEN r1
  220. t4=(z4/n4)*x^p4*c4:IF anz<5 THEN r1
  221. t5=(z5/n5)*x^p5*c5:IF anz<6 THEN r1
  222. t6=(z6/n6)*x^p6*c6
  223. r1:                                  
  224. IF INKEY$<>"" THEN  ende
  225. IF anz=1 THEN ma
  226. IF anz=2 THEN mb
  227. IF anz=3 THEN mc
  228. IF anz=4 THEN md
  229. IF anz=5 THEN me
  230. IF anz=6 THEN mf
  231. END
  232. ma:y=t1:IF y>ymax OR y<-ymax THEN schleife :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),1:GOTO schleife
  233. mb:y=t1+t2:IF y>ymax OR y<-ymax THEN schleife :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),1:GOTO schleife
  234. mc:y=t1+t2+t3:IF y>ymax OR y<-ymax THEN schleife :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),1:GOTO schleife
  235. md:y=t1+t2+t3+t4:IF y>ymax OR y<-ymax THEN schleife :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),1:GOTO schleife
  236. me:y=t1+t2+t3+t4+t5:IF y>ymax OR y<-ymax THEN schleife :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),1:GOTO schleife
  237. mf:y=t1+t2+t3+t4+t5+t6:IF y>ymax OR y<-ymax THEN schleife :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),1:GOTO schleife
  238. abl:
  239. IF ab1$="n" THEN ende
  240. x=i1
  241. schleife2:
  242. x=x+l
  243. IF x>i2 THEN abl2
  244. t1=(z1/n1)*p1*x^(p1-1)*c1:IF anz<2 THEN r2
  245. t2=(z2/n2)*p2*x^(p2-1)*c2:IF anz<3 THEN r2
  246. t3=(z3/n3)*p3*x^(p3-1)*c3:IF anz<4 THEN r2
  247. t4=(z4/n4)*p4*x^(p4-1)*c4:IF anz<5 THEN r2
  248. t5=(z5/n5)*p5*x^(p5-1)*c5:IF anz<6 THEN r2
  249. t6=(z6/n6)*p6*x^(p6-1)*c6
  250. r2:                                  
  251. IF INKEY$<>"" THEN ende
  252. IF anz=1 THEN m2a
  253. IF anz=2 THEN m2b
  254. IF anz=3 THEN m2c
  255. IF anz=4 THEN m2d
  256. IF anz=5 THEN m2e
  257. IF anz=6 THEN m2f
  258. END
  259. m2a:y=t1:IF y>ymax OR y<-ymax THEN schleife2 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),3:GOTO schleife2
  260. m2b:y=t1+t2:IF y>ymax OR y<-ymax THEN schleife2 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),3:GOTO schleife2
  261. m2c:y=t1+t2+t3:IF y>ymax OR y<-ymax THEN schleife2 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),3:GOTO schleife2
  262. m2d:y=t1+t2+t3+t4:IF y>ymax OR y<-ymax THEN schleife2 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),3:GOTO schleife2
  263. m2e:y=t1+t2+t3+t4+t5:IF y>ymax OR y<-ymax THEN schleife2 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),3:GOTO schleife2
  264. m2f:y=t1+t2+t3+t4+t5+t6:IF y>ymax OR y<-ymax THEN schleife2 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),3:GOTO schleife2
  265. abl2:
  266. IF ab2$="n" THEN ende
  267. x=i1
  268. schleife3:                        
  269. x=x+l
  270. IF x>i2 THEN abl3
  271. t1=(z1/n1)*p1*(p1-1)*x^(p1-2)*c1:IF anz<2 THEN r3
  272. t2=(z2/n2)*p2*(p2-1)*x^(p2-2)*c2:IF anz<3 THEN r3
  273. t3=(z3/n3)*p3*(p3-1)*x^(p3-2)*c3:IF anz<4 THEN r3
  274. t4=(z4/n4)*p4*(p4-1)*x^(p4-2)*c4:IF anz<5 THEN r3
  275. t5=(z5/n5)*p5*(p5-1)*x^(p5-2)*c5:IF anz<6 THEN r3
  276. t6=(z6/n6)*p6*(p6-1)*x^(p6-2)*c6
  277. r3:                                  
  278. IF INKEY$<>"" THEN ende
  279. IF anz=1 THEN m3a
  280. IF anz=2 THEN m3b
  281. IF anz=3 THEN m3c
  282. IF anz=4 THEN m3d
  283. IF anz=5 THEN m3e
  284. IF anz=6 THEN m3f
  285. END
  286. m3a:y=t1:IF y>ymax OR y<-ymax THEN schleife3 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),4:GOTO schleife3
  287. m3b:y=t1+t2:IF y>ymax OR y<-ymax THEN schleife3 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),4:GOTO schleife3
  288. m3c:y=t1+t2+t3:IF y>ymax OR y<-ymax THEN schleife3 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),4:GOTO schleife3
  289. m3d:y=t1+t2+t3+t4:IF y>ymax OR y<-ymax THEN schleife3 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),4:GOTO schleife3
  290. m3e:y=t1+t2+t3+t4+t5:IF y>ymax OR y<-ymax THEN schleife3 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),4:GOTO schleife3
  291. m3f:y=t1+t2+t3+t4+t5+t6:IF y>ymax OR y<-ymax THEN schleife3 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),4:GOTO schleife3
  292. abl3:
  293. IF ab3$="n" THEN ende
  294. x=i1
  295. schleife4:
  296. x=x+l
  297. IF x>i2 THEN abl4
  298. t1=(z1/n1)*p1*(p1-1)*(p1-2)*x^(p1-3)*c1:IF anz<2 THEN r4
  299. t2=(z2/n2)*p2*(p2-1)*(p2-2)*x^(p2-3)*c2:IF anz<3 THEN r4
  300. t3=(z3/n3)*p3*(p3-1)*(p3-2)*x^(p3-3)*c3:IF anz<4 THEN r4
  301. t4=(z4/n4)*p4*(p4-1)*(p4-2)*x^(p4-3)*c4:IF anz<5 THEN r4
  302. t5=(z5/n5)*p5*(p5-1)*(p5-2)*x^(p5-3)*c5:IF anz<6 THEN r4
  303. t6=(z6/n6)*p6*(p6-1)*(p6-2)*x^(p6-3)*c6
  304. r4:                                  
  305. IF INKEY$<>"" THEN ende
  306. IF anz=1 THEN m4a
  307. IF anz=2 THEN m4b
  308. IF anz=3 THEN m4c
  309. IF anz=4 THEN m4d
  310. IF anz=5 THEN m4e
  311. IF anz=6 THEN m4f
  312. END
  313. m4a:y=t1:IF y>ymax OR y<-ymax THEN schleife4 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),5:GOTO schleife4
  314. m4b:y=t1+t2:IF y>ymax OR y<-ymax THEN schleife4 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),5:GOTO schleife4
  315. m4c:y=t1+t2+t3:IF y>ymax OR y<-ymax THEN schleife4 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),5:GOTO schleife4
  316. m4d:y=t1+t2+t3+t4:IF y>ymax OR y<-ymax THEN schleife4 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),5:GOTO schleife4
  317. m4e:y=t1+t2+t3+t4+t5:IF y>ymax OR y<-ymax THEN schleife4 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),5:GOTO schleife4
  318. m4f:y=t1+t2+t3+t4+t5+t6:IF y>ymax OR y<-ymax THEN schleife4 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),5:GOTO schleife4
  319. abl4:
  320. IF ab4$="n" THEN ende
  321. x=i1
  322. schleife5:
  323. x=x+l
  324. IF x>i2 THEN ende
  325. t1=(z1/n1)*p1*(p1-1)*(p1-2)*(p1-3)*x^(p1-4)*c1:IF anz<2 THEN r5
  326. t2=(z2/n2)*p2*(p2-1)*(p2-2)*(p2-3)*x^(p2-4)*c2:IF anz<3 THEN r5
  327. t3=(z3/n3)*p3*(p3-1)*(p3-2)*(p3-3)*x^(p3-4)*c3:IF anz<4 THEN r5
  328. t4=(z4/n4)*p4*(p4-1)*(p4-2)*(p4-3)*x^(p4-4)*c4:IF anz<5 THEN r5
  329. t5=(z5/n5)*p5*(p5-1)*(p5-2)*(p5-3)*x^(p5-4)*c5:IF anz<6 THEN r5
  330. t6=(z6/n6)*p6*(p6-1)*(p6-2)*(p6-3)*x^(p6-4)*c6
  331. r5:                                  
  332. IF INKEY$<>"" THEN ende
  333. IF anz=1 THEN m5a
  334. IF anz=2 THEN m5b
  335. IF anz=3 THEN m5c
  336. IF anz=4 THEN m5d
  337. IF anz=5 THEN m5e
  338. IF anz=6 THEN m5f
  339. END
  340. m5a:y=t1:IF y>ymax OR y<-ymax THEN schleife5 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),7:GOTO schleife5
  341. m5b:y=t1+t2:IF y>ymax OR y<-ymax THEN schleife5 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),7:GOTO schleife5
  342. m5c:y=t1+t2+t3:IF y>ymax OR y<-ymax THEN schleife5 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),7:GOTO schleife5
  343. m5d:y=t1+t2+t3+t4:IF y>ymax OR y<-ymax THEN schleife5 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),7:GOTO schleife5
  344. m5e:y=t1+t2+t3+t4+t5:IF y>ymax OR y<-ymax THEN schleife5 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),7:GOTO schleife5
  345. m5f:y=t1+t2+t3+t4+t5+t6:IF y>ymax OR y<-ymax THEN schleife5 :ELSE x2=310+co*x:y2=210-co*y:PSET (x2,y2),7:GOTO schleife5
  346. beispiele:
  347. CLS               
  348. LOCATE 5,5:PRINT  "Nr.                     |    1       |   2     |    3     |    4    " 
  349. LOCATE 6,5:PRINT  "------------------------+------------+---------+----------+---------"
  350. LOCATE 8,5:PRINT  "Anz.d.Summanden         |    3       |   1     |    2     |    4    "
  351. LOCATE 10,5:PRINT "1.Summand  (p,z,n)(+,-) |  4,1,20(+) |2,1,1(+) | 1,3,1(+) | 3,1,4(+)"
  352. LOCATE 12,5:PRINT "2.Summand  (p,z,n)      | 2,29,20(-) |  ---    | 0,1,1(-) | 2,3,4(-)"
  353. LOCATE 14,5:PRINT "3.Summand  (p,z,n)      |  0,5,1(+)  |  ---    |   ---    | 1,9,1(-)"
  354. LOCATE 16,5:PRINT "4.Summand  (p,z,n)      |   ---      |  ---    |   ---    | 0,5,1(+)"
  355. LOCATE 18,5:PRINT "Zeichendichte           |   0.01     |  0.01   |  0.02    |  0.005  "
  356. LOCATE 20,5:PRINT "Definitionsbereich      |   -5,5     |  -3,3   |  -4,4    |  -3,5   "
  357. LOCATE 22,5:PRINT "Anzahl der Ableitungen  |    3       |   1     |   ---    |    2    "
  358. LOCATE 24,5:PRINT "Koordinatenraster       |    25      |   40    |   30     |   25    "
  359. LOCATE 30,10:PRINT " >>Taste<<"
  360. WHILE INKEY$="":WEND
  361. CLS
  362. GOTO inp
  363. ende:
  364. LOCATE 7,1:PRINT ">>Taste<<"
  365. WHILE INKEY$="":WEND
  366. GOTO anf
  367.  
  368.  
  369.  
  370.  
  371.  
  372.